parameter nmax,mmax,ntestmax,npre,nprepag,listado
go top
set alternate to TEST.DOC
set alternate on
set console off
? 'Tipo examen y fecha                    :',' Examen ',T_EXAMEN,dtoc(F_EXAMEN)
? 'Numero de preguntas en la base         :',nmax
? 'Numero de respuestas por pregunta      :',mmax
? 'Numero de test a realizar              :',ntestmax
? 'Numero de preguntas de un test         :',npre
? 'Numero de preguntas por pagina         :',nprepag
? '----------------------------------------------------------------------------'
do while .not.eof()
   if listado
      ? recno()
      ? TEMA
      ? FECHA
      ? F_EXAMEN
   endif
   ? trim(ENUNCIADO)
   ? trim(RESPUESTA)
   ? trim(R2)
   ? trim(R3)
   ? trim(R4)
   ?
   skip
enddo
? '----------------------------------------------------------------------------'
set alternate off
close alternate
set console on
